home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 603 / emacs / cmd / mail < prev    next >
Text File  |  1992-03-05  |  1KB  |  53 lines
  1. store-procedure dontsend
  2.     set %mailtmp $discmd
  3.     set $discmd FALSE
  4. !force    find-screen "MAIL"
  5.     select-buffer "[Mail]"
  6. !force unbind-key M-S
  7.     macro-to-key mail M-S
  8. !force unbind-key ^X^G
  9.     unmark-buffer
  10. !force    select-buffer %mailbuf
  11. !force    find-screen %mailscreen
  12. !force    delete-screen "MAIL"
  13. !force delete-buffer "[Mail]"
  14. !force delete-buffer "[send]"
  15. !force delete-buffer "[dontsend]"
  16. !force %mailcol set-fill-column
  17.     set $discmd %mailtmp
  18. !endm
  19.  
  20. store-procedure send
  21.     set %mailtmp $discmd
  22.     set $discmd FALSE
  23. !force    find-screen "MAIL"
  24.     select-buffer "[Mail]"
  25.     beginning-of-file
  26. 1    replace-string "===========" ""
  27.     write-file &cat &env TMPDIR "\em_mail"
  28.     execute-program &cat &cat "c:\sys\sendmail.ttp -rf " &env TMPDIR "\em_mail"
  29.     set $discmd %mailtmp
  30.     execute-procedure dontsend
  31. !endm
  32.  
  33.     set %mailtmp $discmd
  34.     set $discmd FALSE
  35.     set %mailbuf $cbufname
  36. !force    set %mailscreen $scrname
  37. !force    find-screen "MAIL"
  38.     select-buffer "[Mail]"
  39.     unmark-buffer
  40. !force    read-file g:\gnu\me\mail.src
  41.      change-file-name &cat &env TMPDIR "\em_mail"
  42.     add-mode WRAP
  43.     set %mailcol $fillcol
  44.     79 set-fill-column
  45.     beginning-of-file
  46.     end-of-line
  47. !force unbind-key M-S
  48.     macro-to-key send M-S
  49.     macro-to-key dontsend ^X^G
  50.     set $discmd %mailtmp
  51.     write-message "Edit message. Press M-S to send, ^X^G to abort"
  52.  
  53.